100 CALL CLEAR
110 FOR CC=1 TO 8
120 CALL COLOR(CC,5,11)
130 NEXT CC
140 CALL SCREEN(11)
160 FOR DDD=1 TO 500
170 NEXT DDD
180 CALL CLEAR
190 PRINT "HOL DIR DAS GOLD!": : : : : : : : : :
200 PRINT "EIN ABENTEUERSPIEL": :
210 FOR J=1 TO 2
220 IA=200
230 CALL SOUND(IA,131,0,262,3,523,3)
240 CALL SOUND(IA,147,0,294,3,587,3)
250 CALL SOUND(IA,131,0,311,3,622,3)
260 CALL SOUND(IA,156,0,311,3,622,3)
270 CALL SOUND(IA,131,0,294,3,587,3)
280 CALL SOUND(IA,156,0,294,3,587,3)
290 CALL SOUND(IA*2,131,0,262,3,523,3)
300 CALL SOUND(IA,156,0,262,3)
310 CALL SOUND(IA,123,0,294,3)
320 CALL SOUND(IA,131,0,311,3)
330 CALL SOUND(IA,156,0,393,3)
340 CALL SOUND(IA,131,0,294,3)
350 CALL SOUND(IA,156,0,311,3)
360 CALL SOUND(IA*2,131,0,262,3)
370 NEXT J
380 CALL CLEAR
390 CALL SCREEN(14)
400 FOR CC=1 TO 8
410 CALL COLOR(CC,16,14)
420 NEXT CC
430 DIM P(9,9,2)
440 PRINT "DU GEHST ZUM ": :
450 PRINT "ZAUBERSCHLOSS": :
460 FOR DELAY=1 TO 500
470 NEXT DELAY
480 CALL CLEAR
490 RANDOMIZE
500 MA=0
510 CA=0
520 G=1000
530 M1=1
540 K=0
550 PRINT "WIE IST DEIN NAME?": :
560 INPUT A$
610 CALL CLEAR
620 GOSUB 860
630 CALL SCREEN(7)
640 FOR CC=1 TO 8
650 CALL COLOR(CC,16,7)
660 NEXT CC
670 PRINT "DU TRAEGST 1000 GOLDSTUECKE BEI DIR": :
680 GOSUB 860
690 PRINT A$;". .NUN GEH SCHON. . .": :
700 GOSUB 860
710 GOSUB 900
720 CALL CLEAR
730 CALL SCREEN(2)
740 FOR CC=1 TO 8
750 CALL COLOR(CC,16,2)
760 NEXT CC
770 PRINT "DU BETRITTST. . . . . . . . ": :
780 PRINT "DIE UNTERE ETAGE DES ZAUBER-SCHLOSSES. . .": :
790 PRINT "DU WIRST AN MONSTERN, . . .": :
800 PRINT "DIEBEN UND GOLD VORBEIKOMMENABER ACHTE": :
810 PRINT "AUF DEINE SCHRITTE. . . . . ": :
820 PRINT "FALLTUEREN KOENNEN DIR IM   WEGE STEHEN."
830 FOR AB=1 TO 2000
840 NEXT AB
850 GOTO 1840
860 REM  
870 FOR Z2=1 TO 400
880 NEXT Z2
890 RETURN
900 REM  
910 FOR X=1 TO 8
920 FOR Y=1 TO 8
930 FOR Z=1 TO 2
940 P(X,Y,Z)=INT(RND*7)+1
950 NEXT Z
960 NEXT Y
970 NEXT X
980 REM  
990 H=INT(RND*3)+1
1000 FOR A=1 TO 2
1010 FOR N=1 TO H
1020 X=INT(RND*8)+1
1030 Y=INT(RND*8)+1
1040 P(X,Y,A)=8
1050 NEXT N
1060 NEXT A
1070 S=INT(RND*4)+2
1080 FOR A=1 TO 2
1090 FOR N=1 TO S
1100 X=INT(RND*8)+1
1110 Y=INT(RND*8)+1
1120 P(X,Y,A)=9
1130 NEXT N
1140 NEXT A
1150 RETURN
1160 REM  
1170 L1=L1-1
1180 PRINT "DU GEHST DIE TREPPE HINAUF..": :
1190 N=1
1200 X=INT(RND*5)
1210 IF X=2 THEN 1270
1220 CALL SOUND(5,-3,5)
1230 CALL SOUND(30,-7,20)
1240 CALL SOUND(500,-7,30)
1250 N=N+1
1260 IF N=15 THEN 1290 ELSE 1200
1270 CALL SOUND(60,-7,20)
1280 GOTO 1240
1290 REM  
1300 GOSUB 860
1310 CALL SCREEN(11)
1320 FOR CC=1 TO 8
1330 CALL COLOR(CC,5,11)
1340 NEXT CC
1350 PRINT "DU STECKST DEN SCHLUESSEL   INS LOCH . . . . . . . . . .": :
1360 GOSUB 860
1370 PRINT "DIE TUER IST OFFEN": :
1380 CALL SOUND(125,131,0)
1390 CALL SOUND(125,147,0)
1400 CALL SOUND(500,165,0)
1410 CALL SOUND(250,165,0)
1420 CALL SOUND(250,165,0)
1430 CALL SOUND(250,147,0)
1440 CALL SOUND(250,165,0)
1450 CALL SOUND(750,175,0)
1460 CALL SOUND(500,165,0)
1470 FOR A=0 TO 30 STEP 5
1480 CALL SOUND(-99,698,A,1924,A)
1490 NEXT A
1500 FOR A=0 TO 30 STEP 5
1510 CALL SOUND(-99,554,A,1527,A)
1520 NEXT A
1530 GOSUB 860
1540 IF L1=0 THEN 1620
1550 MA=0
1560 K=0
1570 K4=INT(RND*4)+4
1580 CB=CA+K4
1590 PRINT "DU BIST IM . . . MITTLEREN  STOCKWERK": :
1600 GOSUB 860
1610 GOTO 1900
1620 PRINT "DU HAST DEN WEG . . . . .": :
1630 PRINT "AUS DEM SCHLOSS GEFUNDEN": :
1640 CALL SOUND(1000,262,2,330,2,392,2)
1650 CALL SOUND(1000,349,2,392,2,440,2)
1660 PRINT "DU HAST";G;" GOLDSTUECKE.": :
1670 FOR J=1 TO 11
1680 READ MMM,NNN,OOO
1690 CALL SOUND(MMM,NNN,0,OOO,0)
1700 NEXT J
1710 DATA 125,262,131,125,294,131,250,156,131,250,131,147,250,262,131,100,262,131
1720 DATA 100,294,123,100,311,131,100,392,131,100,294,131,100,311,131,125,262,131,200,131,262
1730 CALL SOUND(200,131,0,262,3,523,3)
1740 GOSUB 1760
1750 GOTO 2690
1760 GG=G+100
1770 R=INT((GG*CA-7000+1)/M1)
1780 PRINT
1790 PRINT
1800 PRINT
1810 IF G<=0 THEN 5380
1820 PRINT "DU HAST ";M1;"ANSCHLAEGE GEBRAUCHT UM DEN WEG NACH   DRAUSSEN ZU      FINDEN": :
1830 RETURN
1840 REM  
1850 C=INT(RND*8)+1
1860 D=INT(RND*8)+1
1870 P(C,D,2)=1
1880 L1=2
1890 K4=INT(RND*4)+4
1900 CALL CLEAR
1910 A=P(C,D,L1)
1920 GOSUB 860
1930 ON A GOSUB 2960,3010,3060,3060,3140,3730,3800,3860,4170
1940 PRINT
1950 IF G<=0 THEN 2570
1960 PRINT A$;"   WAS WILLST DU TUN?"
1970 PRINT
1980 PRINT "(N)ORDEN (S)UEDEN (E)OSTEN  (W)ESTEN (U)RAUF  (G)OLD    (Q)UIT": :
1990 CALL KEY(0,K,S)
2000 IF S=0 THEN 1990
2010 CALL CLEAR
2020 M1=M1+1
2030 IF M1>=140/L1 THEN 5270
2040 IF K=78 THEN 2150
2050 IF K=69 THEN 2200
2060 IF K=83 THEN 2250
2070 IF K=87 THEN 2300
2080 IF K=85 THEN 2350
2090 IF K=71 THEN 2410
2100 IF K=81 THEN 2120
2110 GOTO 1960
2120 END
2130 PRINT
2140 GOTO 1940
2150 REM  
2160 IF A=7 THEN 2450
2170 IF(D-1)=0 THEN 2780
2180 D=D-1
2190 GOTO 1900
2200 REM  
2210 IF A=6 THEN 2510
2220 IF(C+1)=9 THEN 2840
2230 C=C+1
2240 GOTO 1900
2250 REM  
2260 IF A=7 THEN 2450
2270 IF(D+1)=9 THEN 2880
2280 D=D+1
2290 GOTO 1900
2300 REM  
2310 IF A=6 THEN 2510
2320 IF(C-1)=0 THEN 2920
2330 C=C-1
2340 GOTO 1900
2350 CALL CLEAR
2360 IF A<>9 THEN 2380
2370 IF K>-1 THEN 1160
2380 PRINT "DU STEHST NICHT AN EINER    TREPPE . ": :
2390 GOSUB 860
2400 REM  
2410 REM  
2420 CALL CLEAR
2430 PRINT "DU HAST ";G;" GOLD STUECKE.": :
2440 GOTO 1940
2450 REM  
2460 PRINT
2470 CALL CLEAR
2480 PRINT "DU BIST IN EINEM OST-WEST   TUNNEL": :
2490 PRINT "DU KANNST NUR NACH OST ODER WEST GEHEN": :
2500 GOTO 1940
2510 REM  
2520 PRINT
2530 CALL CLEAR
2540 PRINT "DU BIST IN EINEM NORD-SUED  TUNNEL": :
2550 PRINT "DU KANNST NUR NACH NORD ODERSUED": :
2560 GOTO 2500
2570 REM  
2580 GOSUB 860
2590 PRINT
2600 CALL SOUND(250,139,2)
2610 CALL SOUND(10,2000,2)
2620 CALL SOUND(250,139,2)
2630 CALL SOUND(10,2000,2)
2640 CALL SOUND(500,185,2)
2650 PRINT "DU HAST ALL DEINE GOLD UND  DU WARST": :
2660 PRINT " . . . UNFAHIG AUS DEM      SCHLOSS ZU ENTFLIEHEN.": : : :
2670 PRINT "VIELEICHT NAECHSTES MAL": :
2680 GOSUB 1760
2690 PRINT
2700 PRINT "NOCHMAL?": :
2710 PRINT "ENTER '1'-JA   '0'-NEIN": :
2720 INPUT AA
2730 CALL CLEAR
2740 IF AA<>1 THEN 2770
2750 CALL CLEAR
2760 GOTO 450
2770 END
2780 CALL CLEAR
2790 PRINT "DU BIST AN DER NORD-MAUER": :
2800 CALL SOUND(-55,400,2,-4,2)
2810 PRINT "DU KANNST NICHT WEITERGEHEN": :
2820 PRINT "NEHME EINEN ANDEREN WEG": :
2830 GOTO 1940
2840 CALL CLEAR
2850 PRINT "DU BIST AN DER OST-MAUER": :
2860 CALL SOUND(-500,400,2,-4,2)
2870 GOTO 2810
2880 CALL CLEAR
2890 PRINT "DU BIST AN DER SUED-MAUER": :
2900 CALL SOUND(-500,400,2,-4,2)
2910 GOTO 2810
2920 CALL CLEAR
2930 PRINT "DU BIST AN DER WEST-MAUER": :
2940 CALL SOUND(-500,400,2,-4,2)
2950 GOTO 2810
2960 REM  
2970 PRINT
2980 PRINT "DU BIST IN EINER . . . . . .": :
2990 PRINT " . . . . LEEREN KAMMER": :
3000 RETURN
3010 REM  
3020 PRINT
3030 PRINT "DU BIST IN EINER NEBLIGEN. .": :
3040 PRINT " . . . . . . . LEEREN KAMMER": :
3050 RETURN
3060 CALL CLEAR
3070 GOSUB 5220
3080 RANDOMIZE
3090 M4=INT(RND*10)+1
3100 GOSUB 4290
3110 ON M4 GOSUB 4410,4520,4720,4810,4410,4720,4520,4520,4410,4810
3120 PRINT
3130 RETURN
3140 CALL CLEAR
3150 PRINT "HIER IST EIN DIEB IM RAUM": :
3160 FOR I=1 TO 5
3170 CALL SOUND(500,110,2)
3180 CALL SOUND(-500,330,1)
3190 NEXT I
3200 P(C,D,L1)=2
3210 GOSUB 860
3220 G4=INT(350/L1*RND)+1
3230 RANDOMIZE
3240 Y=INT(RND*8)+1
3250 IF Y<=5 THEN 3600
3260 PRINT
3270 PRINT " ER UEBERRASCHT   DICH. . .": :
3280 GOSUB 860
3290 PRINT "UND ER RENNT SCHNELL DAVON": :
3300 PRINT "ER STAHL.....";G4;" GOLD -   STUECKE": :
3310 G=G-G4
3320 REM  
3330 GOSUB 860
3340 PRINT "DU DURCHSUCHST DEN RAUM UND FINDEST": :
3350 RANDOMIZE
3360 ZZZ=INT(RND*14)+1
3370 ON ZZZ GOSUB 3390,3490,3410,3430,3450,3470,3490,3490,3510,3390,3530,3550,3570,3490
3380 GOTO 3590
3390 PRINT "EIN TOTEN MANN"
3400 RETURN
3410 PRINT "HUNDEDRECK(MIEF)"
3420 RETURN
3430 PRINT "EIN FERNSEHER"
3440 RETURN
3450 PRINT "EIN ZERFLUSTES SKELLET"
3460 RETURN
3470 PRINT "EIN STUECK BROT"
3480 RETURN
3490 PRINT "EINE TRUHE": :
3491 GOSUB 860
3492 PRINT "DU OEFFNEST DEN DECKEL.....": :
3493 GOSUB 860
3494 RANDOMIZE
3495 G54=INT(RND*2000)+1
3496 PRINT "UND FINDEST";G54;" GOLDSTUECKE."
3497 G=G+G54
3498 PRINT
3500 RETURN
3510 PRINT "EIN TI HOME-COMPUTER"
3520 RETURN
3530 PRINT "EIN ALTES SCHWERT"
3540 RETURN
3550 PRINT "EIN BONBON"
3560 RETURN
3570 PRINT "DES MAGIERS BELONUNG-1,000  GOLDSTUECKE"
3580 G=G+1000
3590 RETURN
3600 PRINT "DU UEBERRASCHST DEN DIEB...": :
3610 GOSUB 860
3620 PRINT "ER RENNT WEG UND VERLIERT..": :
3630 PRINT " . . . . ";G4;" GOLDSTUECKE": :
3640 PRINT "DU HEBST DIE GOLDSTUECKE AUF": :
3650 G=G+G4
3660 IF M1=1 THEN 3670 ELSE 3680
3670 RETURN
3680 MA=INT(RND*4)+1
3690 IF M1<=2 THEN 3700 ELSE 3710
3700 MA=1
3710 IF MA=1 THEN 3340
3720 RETURN
3730 CALL CLEAR
3740 PRINT
3750 GOSUB 5440
3760 REM  
3770 PRINT " . . . UNTER EINEM NORD  -  SUED TUNNEL": :
3780 GOSUB 5400
3790 RETURN
3800 CALL CLEAR
3810 PRINT
3820 GOSUB 5440
3830 PRINT " . . . UNTER EINEM OST-WEST TUNNEL": :
3840 GOSUB 5400
3850 RETURN
3860 REM  
3870 CALL SOUND(250,139,2)
3880 CALL SOUND(10,2000,2)
3890 CALL SOUND(250,139,2)
3900 CALL SOUND(10,2000,2)
3910 CALL SOUND(500,185,2)
3920 PRINT "DU TRITTST AUF EINE . . . . FALLTUER": :
3930 GOSUB 860
3940 TD=INT(RND*4)+1
3950 IF TD>=3 THEN 3990
3960 PRINT
3970 PRINT "ABER DU KANNST DICH RETTEN": :
3980 RETURN
3990 IF L1=2 THEN 4100
4000 L1=L1+1
4010 K=1
4020 PRINT "DU FAELLST ZURUECK AUF . . .DIE UNTERE ETAGE . . . . UND": :
4030 G=100
4040 GOSUB 860
4050 PRINT
4060 PRINT "DU VERLIERST DEN MEISSTEN   TEIL DEINER GOLD-STUECKE": :
4070 PRINT "DU HAST . . . ";G;" GOLD - STUECKE UEBER": :
4080 PRINT "ABER DU HAST IMMER NOCH     DEINEN SCHLUESSEL": :
4090 RETURN
4100 PRINT "DU FAELLST IN EIN TIEFES. . LOCH": :
4120 PRINT "DU HAST GLUECK . . . . . .": :
4130 PRINT "DIR IST KAUM WAS PASSIERT. .": :
4140 GOSUB 860
4150 PRINT "DU KLETTERST RAUS. . . . . . ": :
4160 GOTO 5310
4170 PRINT "DU STEHST AN EINER TREPPE. .": :
4180 PRINT " . . . . . GEHE RAUF. . . .": :
4190 N=1
4200 FOR F=700 TO 900 STEP 5
4210 CALL SOUND(-99,F,0)
4220 NEXT F
4230 FOR F=900 TO 700 STEP-8
4240 CALL SOUND(-99,F,0)
4250 NEXT F
4260 N=N+1
4270 IF N=2 THEN 4280 ELSE 4200
4280 RETURN
4290 CALL SOUND(250,147,0,294,0)
4300 CALL SOUND(175,147,0,294,0)
4310 CALL SOUND(75,147,0,294,0)
4320 CALL SOUND(250,147,0,294,1)
4330 CALL SOUND(175,175,0,349,0)
4340 CALL SOUND(75,165,0,330,0)
4350 CALL SOUND(175,165,0,330,0)
4360 CALL SOUND(75,147,0,294,1)
4370 CALL SOUND(175,147,0,294,0)
4380 CALL SOUND(75,131,0,262,0)
4390 CALL SOUND(500,147,0,294,0,587,0)
4400 RETURN
4410 PRINT "HALT *** ICH BIN EIN RIESE": :
4420 GOSUB 4860
4430 GOSUB 4900
4440 INPUT P$
4450 IF P$="TASCHE" THEN 4500
4460 IF P$="IN DER TASCHE" THEN 4500
4470 REM  
4480 GOSUB 5080
4490 RETURN
4500 GOSUB 4930
4510 RETURN
4520 PRINT "STOP *** ICH BIN EIN BUS": :
4530 GOSUB 4860
4540 GOSUB 4900
4550 INPUT P$
4560 IF A$="IN MEINER SOCKE" THEN 4600
4570 IF P$="SOCKE" THEN 4600
4580 GOSUB 5080
4590 RETURN
4600 GOSUB 4930
4610 RETURN
4620 GOSUB 900
4630 H=1
4640 O=0
4650 W=8
4660 B=0
4670 E=5
4680 R=14
4690 C=0
4700 PR=0
4710 GOTO 1840
4720 PRINT "HALT *** ICH BIN EIN DRACHEN": :
4730 GOSUB 4870
4740 GOSUB 4900
4750 INPUT P$
4760 IF P$="MUND" THEN 4790
4770 GOSUB 5080
4780 RETURN
4790 GOSUB 4930
4800 RETURN
4810 PRINT "HUETE DICH VOR FALLTUEREN": :
4820 CALL SOUND(500,220,0,330,0,440,0)
4830 CALL SOUND(250,330,0,440,0,550,0)
4840 REM  
4850 RETURN
4860 PRINT
4870 PRINT "*** ICH LASSE DICH ERST VOR-BEI,WENN": :
4880 PRINT "*** DU MIR SAGST WO DAS GOLDIST": :
4890 RETURN
4900 REM  
4910 RETURN
4920 CALL CLEAR
4930 PRINT "GUT,DU MUSST BELOHNT WERDEN.": :
4940 PRINT
4950 G4=INT(400/L1*RND)+25
4960 K=1
4970 G=G+G4
4980 GOSUB 860
4990 PRINT "DU GEWINNST";G4;" GOLDSTUECKE": :
5000 GOSUB 5180
5010 P(C,D,L1)=1
5020 CA=CA+1
5030 IF K=1 THEN 5040 ELSE 5050
5040 RETURN
5050 IF CA=K4 THEN 5170
5060 IF L1=1 THEN 5290
5070 RETURN
5080 PRINT
5090 PRINT "DU LUEGST": :
5100 PRINT "KEINE BELOHNUNG FUER DICH": :
5110 PRINT
5120 G4=INT(350/L1*RND)+1
5130 G=G-G4
5140 GOSUB 860
5150 PRINT "ICH GEWINNE";G4;" GOLDSTUECKE": :
5160 RETURN
5170 GOSUB 860
5180 K=1
5190 PRINT "DU HAST DEN SUPERSCHLUESSEL GEFUNDEN": :
5200 GOSUB 860
5210 RETURN
5220 PRINT "DU UEBERRASCHT EIN MONSTER        IN SEINEM RAUM": :
5230 GOSUB 860
5240 PRINT "UND ES SPRICHT. . . . . . . ": :
5250 GOSUB 860
5260 RETURN
5270 GOSUB 5180
5280 GOTO 2040
5290 IF CA=CB THEN 5170
5300 RETURN
5310 G=100
5320 GOSUB 860
5330 PRINT
5340 PRINT "DU MUSST. . . DEN. . ": :
5350 PRINT "MEISSTEN TEIL DEINER GOLD-  STUECKE WEGWERFWN": :
5360 PRINT "DU HAST. . . ";G;" GOLD     STUECKE UEBRIG.": :
5370 RETURN
5380 REM  
5390 RETURN
5400 PRINT "DIE TUER SCHLISST SICH      HINTER DIR": :
5410 CALL SOUND(1000,8207,30,8803,30,500,30,-8,5)
5420 GOSUB 860
5430 RETURN
5440 PRINT "DU OEFFNEST EINE GEHEIMTUER UND DU BIST. . . .": :
5450 CALL SOUND(1000,8207,30,8803,30,500,30,-8,5)
5460 GOSUB 860
5470 RETURN
